home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 19 / CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso / CUCD / Sound / MrMPEG / Insert.rexx < prev    next >
OS/2 REXX Batch file  |  1997-11-23  |  2KB  |  56 lines
  1. /* Insert.rexx */
  2.  
  3. options results; address MrMPEG
  4.  
  5. MUIA_List_Active    = 0x8042391c;    MUIA_List_Entries    = 0x80421654
  6. MUIA_ShowMe        = 0x80429ba8;    MUIV_List_Active_Top    = -2
  7.  
  8. list ID SLIST ATTRS MUIA_List_Entries; entries = result
  9. popasl ID FPATH; fpath = result
  10. temp_name = TmpFile('PIPE:MPEG_List.')
  11. address command 'RequestFile >'temp_name 'DRAWER' fpath 'PATTERN "#?.(mp1|mp2|mp3)"
  12.   TITLE "Select MPEG files" MULTISELECT NOICONS'
  13. if open('SongList', temp_name, 'r') = 1 then do
  14.   temp_list = readln('SongList')
  15.   call close('SongList')
  16.   if temp_list ~= "" then do
  17.     do forever
  18.       parse var temp_list '"' first '"' temp_list
  19.       if first == '' then leave
  20.       if exists(first) then do
  21.         popasl ID PATH; pathname = result
  22.         temp_name = TmpFile('PIPE:MPEG_Temp.')
  23.         address command pathname'MPEGA -h' first '>'temp_name
  24.         if open('Output', temp_name, 'r') = 1 then do    /* Check if it can read song info or not */
  25.           null = readln('Output')
  26.           null = readln('Output')
  27.           null = readln('Output')
  28.           null = readln('Output')
  29.           info = readln('Output')
  30.           length = readln('Output')
  31.           call close('Output')
  32.           if info ~= "" then do
  33.             parse var info dummy':' ''detail''
  34.             parse var length dummy':' ''temp_total_time''
  35.             list ID SLIST ATTRS MUIA_List_Active
  36.             list ID SLIST INSERT NODUP POS result + 1,
  37.               STRING first","temp_total_time","strip(detail)
  38.           end /* of if info */
  39.           else request ID WARN GADGETS '"OK"' '"Could not find selected file."'
  40.         end /* of if open */
  41.         else request ID WARN GADGETS '"OK"' '"Could not open a pipe."'
  42.       end /* of if exists */
  43.       else do
  44.         temp_string = "Could not open the file '"first"'."
  45.         request ID WARN GADGETS '"OK"' temp_string
  46.       end
  47.     end /* of do forever */
  48.     list ID SLIST ATTRS MUIA_List_Entries; temp_max = result
  49.     setvar max temp_max
  50.     text ID MAX LABEL "\033b\033r"temp_max
  51.     if entries = 0 then list ID SLIST ATTRS MUIA_List_Active MUIV_List_Active_Top
  52.   end /* of if temp_list */
  53. end /* of if open */
  54. else request ID WARN GADGETS '"OK"' '"Could not open a pipe."'
  55. return
  56.